home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / medical / mendelge.cpt / MendelGenetics / MENDELIAN GENETICS I / card_23193.txt < prev    next >
Text File  |  1989-06-13  |  4KB  |  188 lines
  1. -- card: 23193 from stack: in
  2. -- bmap block id: 24974
  3. -- flags: 0000
  4. -- background id: 2665
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=343 top=131 right=153 bottom=443
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: SELFED
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   delete line 1 of card field F1
  23.   delete line 1 of card field F2
  24.   repeat 32 times
  25.     put random of 32 into it
  26.     if it<=8 then add 1 to card field F2
  27.     else add 1 to card field F1
  28.   end repeat
  29.   add the value of card field F1 to card field F3
  30.   add the value of card field F2 to card field F4
  31. end mouseUp
  32.  
  33.  
  34.  
  35. -- part 2 (field)
  36. -- low flags: 00
  37. -- high flags: 0002
  38. -- rect: left=362 top=174 right=197 bottom=417
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 0
  42. -- font id: 3
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: F1
  47.  
  48.  
  49. -- part 3 (field)
  50. -- low flags: 00
  51. -- high flags: 0002
  52. -- rect: left=362 top=203 right=226 bottom=417
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 0
  56. -- font id: 3
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: F2
  61.  
  62.  
  63. -- part 4 (field)
  64. -- low flags: 00
  65. -- high flags: 0002
  66. -- rect: left=361 top=256 right=279 bottom=416
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 0 / 0
  69. -- text alignment: 0
  70. -- font id: 3
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: F3
  75.  
  76.  
  77. -- part 5 (field)
  78. -- low flags: 00
  79. -- high flags: 0002
  80. -- rect: left=362 top=286 right=309 bottom=417
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 0
  84. -- font id: 3
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: F4
  89.  
  90.  
  91. -- part 6 (button)
  92. -- low flags: 00
  93. -- high flags: 8003
  94. -- rect: left=362 top=22 right=44 bottom=416
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: RESET
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.   delete line 1 of card field F1
  106.   delete line 1 of card field F2
  107.   delete line 1 of card field F3
  108.   delete line 1 of card field F4
  109. end mouseUp
  110.  
  111.  
  112.  
  113. -- part 7 (button)
  114. -- low flags: 00
  115. -- high flags: 8003
  116. -- rect: left=339 top=313 right=335 bottom=439
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 0 / 0
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: CHI SQUARE
  125. ----- HyperTalk script -----
  126. on mouseUp
  127.   global bagone
  128.   global bagtwo
  129.   put the value of card field F3 into "bagone"
  130.   put the value of card field F4 into "bagtwo"
  131.   go to card id 25732
  132.   put 0 into card field class1
  133.   put 0 into card field class2
  134.   put 0 into card field class3
  135.   put 0 into card field class4
  136.   put 0 into card field F5
  137.   put 0 into card field F6
  138.   put 0 into card field F7
  139.   put 0 into card field F8
  140.   put bagone into card field "CLASS1"
  141.   put bagtwo into card field "CLASS2"
  142. end mouseUp
  143.  
  144.  
  145.  
  146. -- part 8 (button)
  147. -- low flags: 00
  148. -- high flags: 8003
  149. -- rect: left=164 top=315 right=337 bottom=264
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: SUB HEADINGS
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   go to card id 9665
  161. end mouseUp
  162.  
  163.  
  164.  
  165.  
  166. -- part contents for background part 1
  167. ----- text -----
  168. MONOHYBRID CROSS
  169.  
  170. -- part contents for background part 2
  171. ----- text -----
  172. In this cross, a scarlet eyed fly is crossed with a normal, wild type fly. In the F1, all individuals have the normal or wild type eye. Run the program to obtain an F2 and from the data, see if you can determine the mechanism of inheritance for this characteristic. You may need to run the program several times before statistically significant data is obtained to permit an accurate estimate of the mechanism. To do this, simply click a second time on the SELFED button. Note, to clear data from the entire program, click on the selfed button.
  173.  
  174. -- part contents for card part 4
  175. ----- text -----
  176. 46
  177.  
  178. -- part contents for card part 5
  179. ----- text -----
  180. 18
  181.  
  182. -- part contents for card part 2
  183. ----- text -----
  184. 23
  185.  
  186. -- part contents for card part 3
  187. ----- text -----
  188. 9